home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00011_Celtic Cross 5.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  521 b   |  23 lines
  1. on mouseUp
  2.   global UsrDivMeanSet, state
  3.   set temp to UsrDivMeanSet
  4.   if state = "done" then
  5.     go("leave")
  6.     return 
  7.   end if
  8.   set UsrDivMeanSet to 1
  9.   set CardPos to CardPos(the mouseH, the mouseV)
  10.   if (CardPos = -1) and (state = "InProcess") then
  11.     keySound("DIVGSEV")
  12.   else
  13.     if (CardPos = -1) and (state = "complete") then
  14.       keySound("DIVGCMPT")
  15.     else
  16.       if (CardPos = -1) and (state = "ReShow") then
  17.         keySound("DIVGREDI")
  18.       end if
  19.     end if
  20.   end if
  21.   set UsrDivMeanSet to temp
  22. end
  23.